home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / kiss-0.11 / kiss-0 / kiss / src / setshlvl.c < prev    next >
C/C++ Source or Header  |  1995-03-23  |  262b  |  19 lines
  1. #include "kiss.h"
  2.  
  3. /* for debugging */
  4. #define DUMPENV { int i; for (i = 0; environ[i]; i++) puts (environ[i]); }
  5.  
  6. void setshlvl ()
  7. {
  8.     char
  9.     buf [30];
  10.  
  11.     if (! flags.noenviron)
  12.     {
  13.     shlvl++;
  14.     sprintf (buf, "%d", shlvl);
  15.  
  16.     addtoenv ("SHLVL", buf);
  17.     }
  18. }
  19.